From: Karl Heuer Date: Thu, 15 Sep 1994 22:19:50 +0000 (+0000) Subject: (kill-new): Call menu-bar-update-yank-menu only if that function is defined. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~90295 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f1d01ba24f462dc943a93328724c12cf8c2e7816;p=emacs.git (kill-new): Call menu-bar-update-yank-menu only if that function is defined. --- diff --git a/lisp/simple.el b/lisp/simple.el index e05c1e7af8d..1e30d146c16 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -998,7 +998,8 @@ Set the kill-ring-yank pointer to point to it. If `interprogram-cut-function' is non-nil, apply it to STRING. Optional second argument REPLACE non-nil means that STRING will replace the front of the kill ring, rather than being added to the list." - (menu-bar-update-yank-menu string (and replace (car kill-ring))) + (and (fboundp 'menu-bar-update-yank-menu) + (menu-bar-update-yank-menu string (and replace (car kill-ring)))) (if replace (setcar kill-ring string) (setq kill-ring (cons string kill-ring))